Paul Butler oli 2010. aasta lõpus Facebookis praktikal. Ta visualiseeris sotsiaalvõrgustiku andmeid tõmmates jooni sõprade asukohtade vahel.
Joonis on atraktiivne ja annab hästi edasi FB visiooni. Seda sama joonist näidatakse igapäevaselt FB kontoris hiigelsuurelt ekraanilt ja kasutati näiteks FB aktsiaemissiooni prospektis, et meelde tuletada või selgitada ettevõtte missiooni. Paul tegi selle joonise kasutades R-i. Kuna FB meile andmeid ei andnud, vaatame selles kodutöös, kuidas lennuliiklus ühendab maailma.
Laadi alla andmestikud airports.csv ja flights.csv ning loe need töökeskkonda.
Andmestikus airports.csv on informatsioon lennujaamade kohta. Selles on järgnevad tunnused:
Andmestik flights.csv sisaldab infot lendude kohta. Selles on järgnevad tunnused:
Paul Butler kasutas suurringjooni, et visualiseerida ühendusi sõprade vahel. Kahe punkti lühim vahemaa keral avaldub suurringjoone kaudu. Kui tuult ja muid sarnaseid tegureid mitte arvestada, lendavad lennukid pikki vahemaid suurringjoonte marsruutide kaudu.
Järgneval joonisel on see tähistatud punase joonega.
Näide, kuidas joonistada suurringjoont R-is. Ühendame Delta maja Facebooki peakontoriga kasutades baasgraafika võimalusi.
library(maps)
library(geosphere)
map("world", col="#f2f2f2", fill=TRUE, border=NA)
lat_delta = 58.385582
lon_delta = 26.725512
lat_fb = 37.485245
lon_fb = -122.148807
gc_points = gcIntermediate(c(lon_delta, lat_delta),
c(lon_fb, lat_fb),
n=50, addStartEnd=TRUE)
lines(gc_points)
Näide, kuidas joonistada suurringjoont R-is. Ühendame Delta maja Eyjafjallajökulliga kasutades ggmap() funktsiooni. Loe rohkem ggmap() funktsiooni kohta siit.
NB! Näites kasutatud Google API tavapäraseks töötamiseks on vaja registreerida Google’s tasuline konto! Otseselt maksma ei pea aga krediitkaardi numbrit on ikka vaja. Seejärel pärida koos väljastatud API võtmega.
library(ggmap)
library(geosphere)
lat_delta = 58.385582
lon_delta = 26.725512
lat_eyjafjallajokull = 63.37120
lon_eyjafjallajokull = -19.36480
register_google(key = "...") # Sisesta siia Google'st saadud API võti
map <- get_map(location = 'Europe', zoom = 3 ,source = "google")
a <- ggmap(map)
gc_points = gcIntermediate(c(lon_delta, lat_delta),
c(lon_eyjafjallajokull, lat_eyjafjallajokull),
n=50, addStartEnd=TRUE)
gc = data.frame(gc_points)
a <- a + geom_path(data = gc, aes(x = lon, y = lat, colour = 'red'))
a
Näide, kuidas joonistada suurringjoont R-is. Ühendame Delta maja maailma suurima pitsa sünnikohaga kahutades leaflet paketti. Loe rohkem leaflet’i kohta siit.
lat_delta = 58.385582
lon_delta = 26.725512
lat_pitsa = 41.535158
lon_pitsa = 12.306798
library(leaflet)
library(geosphere)
m = leaflet() #koordinaatsüsteemis sisse lugemine
m = addTiles(m) #kaardikihtide lisamine
#suurringjoone punktid
gc_points = gcIntermediate(c(lon_delta, lat_delta),
c(lon_pitsa, lat_pitsa),
n = 50, addStartEnd = TRUE)
gc = data.frame(gc_points)
m = m %>% #punktide lisamine kaardile
addCircles(lng = lon_delta,lat = lat_delta,color = 'red',weight = 3) %>%
addCircles(lng = lon_pitsa,lat = lat_pitsa,color = 'red',weight = 3)
m = m %>% #joonte lisamine kaardile
addPolylines(lng = gc$lon, lat = gc$lat, weight = 3, color = 'red')
m = m %>%
setView(lng = 0, lat = 50, zoom = 3) %>%
addProviderTiles("Esri.WorldImagery") #geoloogiline
m
Visualiseeri suurringjoonte abil ühendusi, kuhu saab Tallinna lennujaamast otselennuga. Võid kasutada vabalt valitud meetodit eelnevalt toodud näidete seast.
Näpunäited:
airports Eesti lennujaamu).# sinu kood
Visualiseeri ühendusi, kuhu saab Tallinna lennujaamast otselennu või ühe vahepeatusega. Võid kasutada esimeses ning kolmandas näites tutvustatud võimalusi.
Näpunäited:
Et värve muuta läbipaistvaks, lisa värvikoodile lõppu läbipaistvuse intensiivsus. Näiteks kasuta funktsiooni lines korral argumenti col="#00000010", et muuta mustade (värvikood #000000) joonte läbipaistvus 10%-ni või funktsiooni addPolylines korral argumente weight=0.7 ja opacity=0.3.
Visualiseeri ühendusi Tallinn - vahelennujaam - lõpp-punkt. Tingimata pole tarvis mitu korda joonistada Tallinn - vahelennujaam ühendusi, need võid joonistada ka ühe korra.
# sinu kood
Sinu joonis võiks tulla umbes selline:
või selline:
Alusta Tallinna lennujaamast. Vali kõikvõimalikest lennujaamadest juhuslikult üks ja lenda sinna. Vali nüüd juhuslikult järgmine sihtpunkt ning lenda sinna. Jätka seda protsessi 100 korral ja visualiseeri läbitud teekonda.
# sinu kood
Alusta Tallinna lennujaamast. Vali võimalikest sihtkohtadest üks ja lenda sinna. Vali selle lennujaama võimalikest sihtkohtadest juhuslikult järgmine ning lenda sinna. Jätka seda protsessi 100 korral ja visualiseeri läbitud teekonda.
# sinu kood